home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 46 / PC Gamer IT CD 46 2-2.iso / utility / notepads / _SETUP.1 / Notepads.exe / 0 / RCDATA / TFRMEMAIL / TFRMEMAIL.txt < prev   
Text File  |  1999-09-08  |  11KB  |  452 lines
  1. object frmEmail: TfrmEmail
  2.   Left = 27
  3.   Top = 35
  4.   Width = 357
  5.   Height = 371
  6.   BorderIcons = [biSystemMenu, biHelp]
  7.   Caption = 'Send Email'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Icon.Data = {<image000.ico>}
  15.   Menu = mnuMain
  16.   OldCreateOrder = True
  17.   OnActivate = FormActivate
  18.   OnClose = FormClose
  19.   OnCreate = FormCreate
  20.   OnShow = FormShow
  21.   PixelsPerInch = 96
  22.   TextHeight = 13
  23.   object pnlEmail: TPanel
  24.     Left = 0
  25.     Top = 0
  26.     Width = 349
  27.     Height = 296
  28.     Align = alClient
  29.     BevelOuter = bvNone
  30.     TabOrder = 0
  31.     object pnlFrom: TPanel
  32.       Left = 0
  33.       Top = 0
  34.       Width = 349
  35.       Height = 25
  36.       HelpContext = 1501
  37.       Align = alTop
  38.       BevelInner = bvLowered
  39.       BevelOuter = bvNone
  40.       Caption = 'pnlFrom'
  41.       Font.Charset = DEFAULT_CHARSET
  42.       Font.Color = clBlack
  43.       Font.Height = -12
  44.       Font.Name = 'Arial'
  45.       Font.Pitch = fpVariable
  46.       Font.Style = []
  47.       ParentFont = False
  48.       TabOrder = 0
  49.       object lblFrom: TLabel
  50.         Left = 17
  51.         Top = 5
  52.         Width = 32
  53.         Height = 15
  54.         Caption = 'From:'
  55.       end
  56.       object edtFrom: TEdit
  57.         Left = 68
  58.         Top = 2
  59.         Width = 245
  60.         Height = 22
  61.         HelpContext = 1501
  62.         Font.Charset = DEFAULT_CHARSET
  63.         Font.Color = clBlack
  64.         Font.Height = -11
  65.         Font.Name = 'Arial'
  66.         Font.Pitch = fpVariable
  67.         Font.Style = []
  68.         ParentFont = False
  69.         TabOrder = 0
  70.         OnKeyPress = PressEnterKey
  71.       end
  72.     end
  73.     object pnlTo: TPanel
  74.       Left = 0
  75.       Top = 25
  76.       Width = 349
  77.       Height = 25
  78.       HelpContext = 1502
  79.       Align = alTop
  80.       BevelInner = bvLowered
  81.       BevelOuter = bvNone
  82.       Caption = 'pnlTo'
  83.       Font.Charset = DEFAULT_CHARSET
  84.       Font.Color = clBlack
  85.       Font.Height = -12
  86.       Font.Name = 'Arial'
  87.       Font.Pitch = fpVariable
  88.       Font.Style = []
  89.       ParentFont = False
  90.       TabOrder = 1
  91.       object lblTo: TLabel
  92.         Left = 16
  93.         Top = 5
  94.         Width = 17
  95.         Height = 15
  96.         Caption = 'To:'
  97.       end
  98.       object btnEmailAddress: TSpeedButton
  99.         Left = 316
  100.         Top = 3
  101.         Width = 19
  102.         Height = 19
  103.         Glyph.Data = {
  104.           F6000000424DF600000000000000760000002800000010000000100000000100
  105.           0400000000008000000000000000000000001000000010000000000000000000
  106.           BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  107.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  108.           7777777777777070777777777777070F07777777777070FFF077777777070FCF
  109.           FF0777777070FCFC91F07777070FCFCF110D000070FFFCFFF000070807077777
  110.           00300B30000000000330070FBFBFBFBFB03000FBFBFBFBFBFB00000000000000
  111.           0000777777777777777777777777777777777777777777777777}
  112.         OnClick = DisplayEmailAddresses
  113.       end
  114.       object edtTo: TEdit
  115.         Left = 68
  116.         Top = 2
  117.         Width = 245
  118.         Height = 22
  119.         HelpContext = 1502
  120.         Font.Charset = DEFAULT_CHARSET
  121.         Font.Color = clBlack
  122.         Font.Height = -11
  123.         Font.Name = 'Arial'
  124.         Font.Pitch = fpVariable
  125.         Font.Style = []
  126.         HideSelection = False
  127.         ParentFont = False
  128.         TabOrder = 0
  129.         OnKeyPress = PressEnterKey
  130.       end
  131.     end
  132.     object pnlSubject: TPanel
  133.       Left = 0
  134.       Top = 50
  135.       Width = 349
  136.       Height = 25
  137.       HelpContext = 1503
  138.       Align = alTop
  139.       BevelInner = bvLowered
  140.       BevelOuter = bvNone
  141.       Font.Charset = DEFAULT_CHARSET
  142.       Font.Color = clBlack
  143.       Font.Height = -12
  144.       Font.Name = 'Arial'
  145.       Font.Pitch = fpVariable
  146.       Font.Style = []
  147.       ParentFont = False
  148.       TabOrder = 2
  149.       object lblSubject: TLabel
  150.         Left = 16
  151.         Top = 5
  152.         Width = 44
  153.         Height = 15
  154.         Caption = 'Subject:'
  155.       end
  156.       object edtSubject: TEdit
  157.         Left = 68
  158.         Top = 2
  159.         Width = 245
  160.         Height = 22
  161.         HelpContext = 1503
  162.         Font.Charset = DEFAULT_CHARSET
  163.         Font.Color = clBlack
  164.         Font.Height = -11
  165.         Font.Name = 'Arial'
  166.         Font.Pitch = fpVariable
  167.         Font.Style = []
  168.         ParentFont = False
  169.         TabOrder = 0
  170.         OnKeyPress = PressEnterKey
  171.       end
  172.     end
  173.     object pnlAttach: TPanel
  174.       Left = 0
  175.       Top = 104
  176.       Width = 349
  177.       Height = 192
  178.       Align = alClient
  179.       BevelOuter = bvNone
  180.       Caption = 'pnlAttach'
  181.       TabOrder = 4
  182.       object lstAttach: TListBox
  183.         Left = 0
  184.         Top = 0
  185.         Width = 349
  186.         Height = 192
  187.         HelpContext = 1505
  188.         Align = alClient
  189.         ItemHeight = 18
  190.         Style = lbOwnerDrawFixed
  191.         TabOrder = 0
  192.         TabWidth = 20
  193.         Visible = False
  194.         OnDrawItem = lstAttachDrawItem
  195.       end
  196.     end
  197.     object mmoBody: TRichEdit
  198.       Left = 0
  199.       Top = 104
  200.       Width = 349
  201.       Height = 192
  202.       HelpContext = 1504
  203.       Align = alClient
  204.       PlainText = True
  205.       ScrollBars = ssVertical
  206.       TabOrder = 3
  207.       WantTabs = True
  208.     end
  209.     object lstAddress: TListBox
  210.       Left = 194
  211.       Top = 196
  212.       Width = 121
  213.       Height = 97
  214.       ItemHeight = 13
  215.       TabOrder = 5
  216.       Visible = False
  217.     end
  218.     object barMail: TSpeedBar
  219.       Left = 0
  220.       Top = 75
  221.       Width = 349
  222.       Height = 29
  223.       Font.Charset = DEFAULT_CHARSET
  224.       Font.Color = clWindowText
  225.       Font.Height = -12
  226.       Font.Name = 'Comic Sans MS'
  227.       Font.Style = []
  228.       Options = [sbFlatBtns]
  229.       BtnOffsetHorz = 3
  230.       BtnOffsetVert = 3
  231.       BtnWidth = 24
  232.       BtnHeight = 23
  233.       Images = frmMain.lstImages
  234.       BevelOuter = bvNone
  235.       PopupMenu = pumToolBar
  236.       TabOrder = 6
  237.       InternalVer = 1
  238.       object secFile: TSpeedbarSection
  239.         Caption = 'File'
  240.       end
  241.       object btnEText: TSpeedItem
  242.         Tag = 1
  243.         Caption = 'Enter Text'
  244.         GroupIndex = 1
  245.         Down = True
  246.         Hint = 'Enter text in email'
  247.         ImageIndex = 25
  248.         Spacing = 1
  249.         Left = 3
  250.         Top = 3
  251.         Visible = True
  252.         OnClick = AddButtons
  253.         SectionName = 'File'
  254.       end
  255.       object btnEAttach: TSpeedItem
  256.         Tag = 1
  257.         Caption = 'Attach File'
  258.         GroupIndex = 1
  259.         Hint = 'Attach file to email...'
  260.         ImageIndex = 26
  261.         Spacing = 1
  262.         Left = 27
  263.         Top = 3
  264.         Visible = True
  265.         OnClick = AddButtons
  266.         SectionName = 'File'
  267.       end
  268.       object btnESend: TSpeedItem
  269.         Caption = 'Send Email'
  270.         Hint = 'Send email'
  271.         ImageIndex = 55
  272.         Spacing = 1
  273.         Left = 115
  274.         Top = 3
  275.         Visible = True
  276.         OnClick = AttachButtons
  277.         SectionName = 'File'
  278.       end
  279.       object btnClose: TSpeedItem
  280.         Tag = 5
  281.         Caption = 'Close Email'
  282.         Hint = 'Close email'
  283.         ImageIndex = 50
  284.         Spacing = 1
  285.         Left = 147
  286.         Top = 3
  287.         Visible = True
  288.         OnClick = AttachButtons
  289.         SectionName = 'File'
  290.       end
  291.       object btnRemAttach: TSpeedItem
  292.         Tag = 3
  293.         Caption = 'Remove Attachment'
  294.         Enabled = False
  295.         Hint = 'Remove highlighted attachment'
  296.         ImageIndex = 27
  297.         Spacing = 1
  298.         Left = 83
  299.         Top = 3
  300.         Visible = True
  301.         OnClick = AttachButtons
  302.         SectionName = 'File'
  303.       end
  304.       object btnAddAttach: TSpeedItem
  305.         Tag = 4
  306.         Caption = 'Add Attachment'
  307.         Enabled = False
  308.         Hint = 'Add attachment to email'
  309.         ImageIndex = 22
  310.         Spacing = 1
  311.         Left = 59
  312.         Top = 3
  313.         Visible = True
  314.         OnClick = AttachButtons
  315.         SectionName = 'File'
  316.       end
  317.     end
  318.   end
  319.   object pnlWait: TPanel
  320.     Left = 0
  321.     Top = 296
  322.     Width = 349
  323.     Height = 25
  324.     Align = alBottom
  325.     Alignment = taLeftJustify
  326.     BevelInner = bvLowered
  327.     TabOrder = 1
  328.   end
  329.   object strEmail: TFormStorage
  330.     IniFileName = '\Software\JSoft Consulting\NotePads+'
  331.     IniSection = 'Email Form'
  332.     UseRegistry = True
  333.     StoredProps.Strings = (
  334.       'lstAddress.Items'
  335.       'mniExplore.Checked'
  336.       'mniStandard.Checked'
  337.       'barMail.Options')
  338.     Left = 24
  339.     Top = 208
  340.   end
  341.   object mnuMain: TMainMenu
  342.     Images = frmMain.lstImages
  343.     Left = 80
  344.     Top = 208
  345.     object mniOptions: TMenuItem
  346.       Caption = '&Options'
  347.       object mniBCC: TMenuItem
  348.         Caption = 'Send copy to yourself'
  349.         Checked = True
  350.         Hint = 'Send a copy of the email to yourself'
  351.         OnClick = mniBCCClick
  352.       end
  353.       object mniBar1: TMenuItem
  354.         Caption = '-'
  355.       end
  356.       object mniEnter: TMenuItem
  357.         Caption = '&Enter Text'
  358.         Checked = True
  359.         GroupIndex = 1
  360.         Hint = 'Enter text into body of email'
  361.         ImageIndex = 25
  362.         RadioItem = True
  363.         OnClick = AddButtons
  364.       end
  365.       object mniAttach: TMenuItem
  366.         Caption = '&Attach Files'
  367.         GroupIndex = 1
  368.         Hint = 'Attach files to email'
  369.         ImageIndex = 26
  370.         RadioItem = True
  371.         OnClick = AddButtons
  372.       end
  373.       object mniBar2: TMenuItem
  374.         Caption = '-'
  375.         GroupIndex = 1
  376.       end
  377.       object mniAddAttach: TMenuItem
  378.         Tag = 4
  379.         Caption = 'Add Attachment...'
  380.         Enabled = False
  381.         GroupIndex = 2
  382.         Hint = 'Add attachment to email...'
  383.         ImageIndex = 22
  384.         OnClick = AttachButtons
  385.       end
  386.       object mniRemAttach: TMenuItem
  387.         Tag = 3
  388.         Caption = 'Remove Attachment'
  389.         Enabled = False
  390.         GroupIndex = 2
  391.         Hint = 'Remove highlighted attachment'
  392.         ImageIndex = 27
  393.         OnClick = AttachButtons
  394.       end
  395.       object mniBar4: TMenuItem
  396.         Caption = '-'
  397.         GroupIndex = 2
  398.       end
  399.       object mniSend: TMenuItem
  400.         Caption = '&Send Email'
  401.         GroupIndex = 2
  402.         Hint = 'Send email'
  403.         ImageIndex = 55
  404.         OnClick = AttachButtons
  405.       end
  406.       object mniBar3: TMenuItem
  407.         Caption = '-'
  408.         GroupIndex = 2
  409.       end
  410.       object mniClose: TMenuItem
  411.         Tag = 5
  412.         Caption = '&Close'
  413.         GroupIndex = 2
  414.         Hint = 'Close email'
  415.         ImageIndex = 50
  416.         OnClick = AttachButtons
  417.       end
  418.     end
  419.   end
  420.   object pumToolBar: TPopupMenu
  421.     Left = 108
  422.     Top = 208
  423.     object mniExplore: TMenuItem
  424.       Caption = 'I&Explorer Style'
  425.       Checked = True
  426.       GroupIndex = 3
  427.       Hint = 'Display tool bars with flat buttons'
  428.       RadioItem = True
  429.       OnClick = UpdateMenus
  430.     end
  431.     object mniStandard: TMenuItem
  432.       Tag = 1
  433.       Caption = '&Standard Style'
  434.       GroupIndex = 3
  435.       Hint = 'Display tool bars with raised buttons'
  436.       RadioItem = True
  437.       OnClick = UpdateMenus
  438.     end
  439.   end
  440.   object smtClient: TNMSMTP
  441.     Host = 'mail.jsoftconsulting.com'
  442.     Port = 25
  443.     ReportLevel = 0
  444.     UserID = '1'
  445.     EncodeType = uuMime
  446.     ClearParams = True
  447.     SubType = mtPlain
  448.     Left = 52
  449.     Top = 208
  450.   end
  451. end
  452.